var

// InitForm variables.

Form : TForm;

Label1, Label2, Label3, Label4, Label5, Label6, Label7, Label8 : TLabel;

Button1 : TButton;

Text1, Text2, Text3, Text4, Text5, seconds : TEdit;

TweenTime : Integer;

Form1 : TForm;

Memo1 : TMemo;

ClipBoard : String;

procedure InitForm2;

begin

Form1 := CreateForm;

Form1.Width := 0;

Form1.Height := 0;

Memo1 := TMemo.Create(Form1);

Memo1.Parent := Form1;

Memo1.Text := Clipboard;

Memo1.SelectAll;

Memo1.CopyToClipboard;

end;

procedure SafeInitForm2;

var

v : TVariantArray;

begin

SetArrayLength(v, 0);

ThreadSafeCall('InitForm2', v);

end;

procedure ShowFormDesign2;

begin

Form1.Show; // Uses Show instead of ShowForm to quickly show the form

// and then close it.

end;

procedure SafeShowFormDesign2;

var

v : TVariantArray;

begin

SetArrayLength(v, 0);

ThreadSafeCall('ShowFormDesign2', v);

end;

procedure MainInitForm2;

begin

try

SafeInitForm2;

SafeShowFormDesign2;

finally

FreeForm(Form1);

except

WriteLn('An error seems to have occurred in: InitForm2');

end;

end;

{Procedure Type1;

Begin

If(IsFKeyDown(9))Then Break;

Text1.CopyToClipboard;

KeyDown(17);

wait(50);

KeyDown(GetKeyCode('v'));

Wait(50);

KeyUp(GetKeyCode('v'));

wait(50);

KeyUp(17);

KeyDown(8);

Wait(50);

KeyUp(8);

If(IsFKeyDown(9))Then Break;

Sleep(TweenTime);

End;

Procedure Type2;

Begin

If(IsFKeyDown(9))Then Break;

Text2.CopyToClipboard;

KeyDown(17);

wait(50);

KeyDown(GetKeyCode('v'));

Wait(50);

KeyUp(GetKeyCode('v'));

wait(50);

KeyUp(17);

KeyDown(8);

Wait(50);

KeyUp(8);

If(IsFKeyDown(9))Then Break;

Sleep(TweenTime);

End;

Procedure Type3;

Begin

If(IsFKeyDown(9))Then Break;

Text3.CopyToClipboard;

KeyDown(17);

wait(50);

KeyDown(GetKeyCode('v'));

Wait(50);

KeyUp(GetKeyCode('v'));

wait(50);

KeyUp(17);

KeyDown(8);

Wait(50);

KeyUp(8);

If(IsFKeyDown(9))Then Break;

Sleep(TweenTime);

End;

Procedure Type4;

Begin

If(IsFKeyDown(9))Then Break;

Text4.CopyToClipboard;

KeyDown(17);

wait(50);

KeyDown(GetKeyCode('v'));

Wait(50);

KeyUp(GetKeyCode('v'));

wait(50);

KeyUp(17);

KeyDown(8);

Wait(50);

KeyUp(8);

If(IsFKeyDown(9))Then Break;

Sleep(TweenTime);

End;

Procedure Type5;

Begin

If(IsFKeyDown(9))Then Break;

Text5.CopyToClipboard;

KeyDown(17);

wait(50);

KeyDown(GetKeyCode('v'));

Wait(50);

KeyUp(GetKeyCode('v'));

wait(50);

KeyUp(17);

KeyDown(8);

Wait(50);

KeyUp(8);

If(IsFKeyDown(9))Then Break;

Sleep(TweenTime);

End;}

Procedure Typer;

Begin

Repeat

Repeat

If(Text1.text='')Then break;

If(IsFKeyDown(9))Then Exit;

ClipBoard:=Text1.Text

MainInitForm2;

KeyDown(17);

wait(50);

KeyDown(GetKeyCode('v'));

Wait(50);

KeyUp(GetKeyCode('v'));

wait(50);

KeyUp(17);

KeyDown(8);

Wait(50);

KeyUp(8);

KeyDown(13);

Wait(50);

KeyUp(13);

If(IsFKeyDown(9))Then Exit;

Sleep(TweenTime);

break;

Until(False)

Repeat

If(Text2.text='')Then break;

If(IsFKeyDown(9))Then Exit;

ClipBoard:=Text2.Text

MainInitForm2;

KeyDown(17);

wait(50);

KeyDown(GetKeyCode('v'));

Wait(50);

KeyUp(GetKeyCode('v'));

wait(50);

KeyUp(17);

KeyDown(8);

Wait(50);

KeyUp(8);

KeyDown(13);

Wait(50);

KeyUp(13);

If(IsFKeyDown(9))Then Exit;

Sleep(TweenTime);

break;

Until(False)

Repeat

If(Text3.text='')Then break;

If(IsFKeyDown(9))Then Break;

ClipBoard:=Text3.Text

MainInitForm2;

KeyDown(17);

wait(50);

KeyDown(GetKeyCode('v'));

Wait(50);

KeyUp(GetKeyCode('v'));

wait(50);

KeyUp(17);

KeyDown(8);

Wait(50);

KeyUp(8);

KeyDown(13);

Wait(50);

KeyUp(13);

If(IsFKeyDown(9))Then Exit;

Sleep(TweenTime);

Break;

Until(False)

Repeat

If(Text4.text='')Then Break;

If(IsFKeyDown(9))Then Exit;

ClipBoard:=Text4.Text

MainInitForm2;

KeyDown(17);

wait(50);

KeyDown(GetKeyCode('v'));

Wait(50);

KeyUp(GetKeyCode('v'));

wait(50);

KeyUp(17);

KeyDown(8);

Wait(50);

KeyUp(8);

KeyDown(13);

Wait(50);

KeyUp(13);

If(IsFKeyDown(9))Then break;

Sleep(TweenTime);

Break;

Until(False)

Repeat

If(Text5.text='')Then Break;

If(IsFKeyDown(9))Then break;

ClipBoard:=Text5.Text

MainInitForm2;

KeyDown(17);

wait(50);

KeyDown(GetKeyCode('v'));

Wait(50);

KeyUp(GetKeyCode('v'));

wait(50);

KeyUp(17);

KeyDown(8);

Wait(50);

KeyUp(8);

KeyDown(13);

Wait(50);

KeyUp(13);

If(IsFKeyDown(9))Then Exit;

Sleep(TweenTime);

Break;

Until(False)

Until(IsFKeyDown(9))

end;

procedure StartMeat(sender: TObject);

begin

TweenTime:=StrToInt(seconds.text)*1000;

Writeln('Starting Script.');

Form.Caption:= Form.Caption + '.';

Form.ModalResult:= mrOk;

FindWindow('Endless Online')

ActivateClient;

Wait(1000);

Typer;

end;

procedure InitForm;

begin

Form := CreateForm;

with Form do

begin

Position := poScreenCenter;

BorderStyle := bsSingle;

BorderIcons := [biMinimize,biSystemMenu];

Caption := 'Endless Online AutoTalker';

ClientHeight := 300;

ClientWidth := 289;

Color := clBlack;

Font.Color := clWindowText;

Font.Height := -11;

Font.Name := 'MS Sans Serif';

Font.Style := [];

PixelsPerInch := 96;

end;

Label1 := TLabel.Create(Form);

with Label1 do

begin

Parent := Form;

Left := 73;

Top := 15;

Width := 133;

Height := 14;

Caption := 'Westside Rep'#39's Auto Talker';

Color := clWhite;

Font.Color := clWhite;

Font.Height := -11;

Font.Name := 'Arial';

Font.Style := [];

ParentColor := False;

ParentFont := False;

end;

Label2 := TLabel.Create(Form);

with Label2 do

begin

Parent := Form;

Left := 3;

Top := 40;

Width := 30;

Height := 14;

Caption := 'Text1:';

Font.Color := clWhite;

Font.Height := -11;

Font.Name := 'Arial';

Font.Style := [];

ParentFont := False;

end;

Label3 := TLabel.Create(Form);

with Label3 do

begin

Parent := Form;

Left := 2;

Top := 74;

Width := 30;

Height := 14;

Caption := 'Text2:';

Font.Color := clWhite;

Font.Height := -11;

Font.Name := 'Arial';

Font.Style := [];

ParentFont := False;

end;

Label4 := TLabel.Create(Form);

with Label4 do

begin

Parent := Form;

Left := 2;

Top := 108;

Width := 30;

Height := 14;

Caption := 'Text3:';

Font.Color := clWhite;

Font.Height := -11;

Font.Name := 'Arial';

Font.Style := [];

ParentFont := False;

end;

Label5 := TLabel.Create(Form);

with Label5 do

begin

Parent := Form;

Left := 2;

Top := 142;

Width := 30;

Height := 14;

Caption := 'Text4:';

Font.Color := clWhite;

Font.Height := -11;

Font.Name := 'Arial';

Font.Style := [];

ParentFont := False;

end;

Label6 := TLabel.Create(Form);

with Label6 do

begin

Parent := Form;

Left := 3;

Top := 176;

Width := 30;

Height := 14;

Caption := 'Text5:';

Font.Color := clWhite;

Font.Height := -11;

Font.Name := 'Arial';

Font.Style := [];

ParentFont := False;

end;

Label7 := TLabel.Create(Form);

with Label7 do

begin

Parent := Form;

Left := 26;

Top := 210;

Width := 144;

Height := 14;

Caption := 'Seconds Between each type:';

Font.Color := clWhite;

Font.Height := -11;

Font.Name := 'Arial';

Font.Style := [];

ParentFont := False;

end;

Label8 := TLabel.Create(Form);

with Label8 do

begin

Parent := Form;

Left := 65;

Top := 279;

Width := 158;

Height := 14;

Caption := 'Prees F9 To Make It Stop Talking.';

Font.Color := clWhite;

Font.Height := -11;

Font.Name := 'Arial';

Font.Style := [];

ParentFont := False;

end;

Button1 := TButton.Create(Form);

with Button1 do

begin

Parent := Form;

Left := 104;

Top := 236;

Width := 75;

Height := 25;

Caption := 'Start ';

TabOrder := 8;

onclick:=@StartMeat

end;

Text1 := TEdit.Create(Form);

with Text1 do

begin

Parent := Form;

Left := 37;

Top := 36;

Width := 245;

Height := 21;

MaxLength := 127;

TabOrder := 9;

end;

Text2 := TEdit.Create(Form);

with Text2 do

begin

Parent := Form;

Left := 37;

Top := 70;

Width := 245;

Height := 21;

MaxLength := 127;

TabOrder := 10;

end;

Text3 := TEdit.Create(Form);

with Text3 do

begin

Parent := Form;

Left := 37;

Top := 104;

Width := 245;

Height := 21;

MaxLength := 127;

TabOrder := 11;

end;

Text4 := TEdit.Create(Form);

with Text4 do

begin

Parent := Form;

Left := 37;

Top := 138;

Width := 245;

Height := 21;

MaxLength := 127;

TabOrder := 12;

end;

Text5 := TEdit.Create(Form);

with Text5 do

begin

Parent := Form;

Left := 37;

Top := 172;

Width := 245;

Height := 21;

MaxLength := 127;

TabOrder := 13;

end;

seconds := TEdit.Create(Form);

with seconds do

begin

Parent := Form;

Left := 176;

Top := 206;

Width := 39;

Height := 21;

MaxLength := 3;

TabOrder := 14;

end;

end;

procedure SafeInitForm;

var

V : TVariantArray;

begin

SetArrayLength(V, 0);

ThreadSafeCall('InitForm', V);

end;

procedure ShowInitFormModal;

begin

Form.ShowModal;

end;

procedure SafeShowInitFormModal;

var

V : TVariantArray;

begin

SetArrayLength(V, 0);

ThreadSafeCall('ShowInitFormModal', V);

end;

procedure MainInitForm;

begin

try

SafeInitForm;

SafeShowInitFormModal;

finally

FreeForm(Form);

except

WriteLn('An error seems to have occurred in: InitForm2');

end;

end;

begin

ClearDebug;

MainInitForm;

end.